home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / fido / XPACK275.lha / rexx / Xfix.rexx < prev    next >
OS/2 REXX Batch file  |  1994-12-11  |  2KB  |  49 lines
  1. /**/
  2. outdir="mail:outbound"
  3. parse upper arg primary
  4. if word(primary,1)="DIRECT" then do
  5.     direct=1
  6.     parse VAR primary "DIRECT" domain '#' zone ':' net '/' node '.' point
  7. end;else do
  8.     direct=0
  9.     parse VAR primary domain '#' zone ':' net '/' node '.' point
  10. end
  11. if point~="0" then do
  12.     say 'Bad arg: 'primary
  13.     say 'Usage:    XQfix [direct] primary_address' 
  14.     say '                domain#zone:net/node.point' 
  15.     exit
  16. end
  17. flist=showdir(outdir,'f')
  18. fcount=words(flist)
  19. if fcount=0 then do
  20.     say 'No files'
  21.     exit
  22. end
  23.  
  24. do i=1 to fcount
  25.     filename=upper(word(flist,i))
  26.     parse upper var filename d'.'z'.'n'.'f'.'p'.'ext
  27.     IS5D=1
  28.     if datatype(d,"N") | ext="" | ext ="EXT" | pos('.',EXT)>0 | length(ext)>3 | ext="REQ" then do
  29.         parse var filename z'.'n'.'f'.'p'.'ext
  30.         if ~datatype(z,"N") | ext="" | ext ="EXT" | pos('.',EXT)>0 | length(ext)>3 | ext="REQ" then do
  31.             say 'Not 4 or 5 d file: 'filename
  32.             Iterate
  33.         end;else IS5D=0
  34.     end
  35.     if direct & p~=0 then do
  36.         z=zone;n=net;f=node
  37.     end
  38.     if IS5D then do    
  39.         say 'Addwork 'd'#'z':'n'/'f'.'p outdir'/'filename
  40. /*        Address REXX 'mail:rexx/addwork 'd'#'z':'n'/'f'.'p outdir'/'filename  */
  41.         address COMMAND 'Addwork 'd'#'z':'n'/'f'.'p outdir'/'filename 
  42.     end;else do
  43.         say 'Addwork 'z':'n'/'f'.'p outdir'/'filename
  44. /*        Address REXX 'mail:rexx/addwork 'z':'n'/'f'.'p outdir'/'filename  */
  45.         Address COMMAND 'addwork 'z':'n'/'f'.'p outdir'/'filename 
  46.     end
  47. end
  48. exit
  49.